<%
strPhysicalPath = Server.MapPath(".\" & ShowSub)
If ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
'Get the number of pictures in the subdirectory
intTotPics = 0
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
intTotPics = intTotPics + 1
End if
Next
'Get the total number of pages in the subdirectory
If (intTotPics/intPicsPerPage) = (int(intTotPics/intPicsPerPage)) Then
intTotPages = int(intTotPics/intPicsPerPage)
Else
intTotPages = int(intTotPics/intPicsPerPage)+1
End If
Redim strPicArray(2,intTotPics)
'Store picture file names in an array
x = 0
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" THEN
strPicArray(0,x) = objFileItem.Name
strPicArray(1,x) = Cstr(int(x/intPicsPerPage)+1)
x = x + 1
End if
Next
'Determine if there are multiple pages and if so, display page numbers.
If intTotPages > 1 Then
Response.Write "
Page: "
For x = 1 to intTotPages
If x = intPage Then
Response.Write "" & x & " "
Else
Response.Write "" & x & " "
End If
Next
Response.Write "
"
Response.Write "
"
End If
For x = 0 to UBound(strPicArray,2)-1
If CInt(strPicArray(1,x)) = intPage Then
ShowPic = Replace(strPicArray(0,x), " ", "%20")
Response.write "
" & vbcrlf
PictureNo = PictureNo + 1
If PictureNo=intPicsPerRow Then
Response.write "
"
PictureNo = 0
End if
End If
Next
Set objFSO = Nothing
End if
%>
<%
End if
%>
Great Harbour Deep is a small fishing village located on the North East
Shoreline of the Northern Peninsula of Newfoundland, approximately 40 km
East of Port au Choix but has no connecting road to anywhere. The
population was approximately 150 until October,2002 when all residents reach a
finanial agreement with the Newfoundland Goverment, sold all their homes &
relocated. Most of them moved to Deer Lake while others moved to Jacksons Arm &
various other communities close by.
It is well known as the community where
Danny Cochran, (the lost ranger in the 40's) was found following weeks in
the bitter cold & snow of a Newfoundland winter.There is a Motel named after him
in Great Harbour Deep called The Danny Cochran Lodge.More of this story can be
found in a book called "Who
will search for Danny".
I read it & it is an excellent book. I was lucky enough to be invited to perform
during the closing down ceremony along with my friends from Labrador
"Borderline". Terry Levallie of Borderline joked and said Frank bye' we closed
down a few bars but this is the first time closed down a town.
